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RRRRRRRR Lala! MM 333338 PPPPPPPP UU UU TTTTTTTTTT UU UU PPPPPPPP DODDDDDD ; 
RRRRRRRR MM MM 33333 PPPPPPPP UU WU TTTTTTTTTT UU UU PPPPPPPP DDDDDDDD : 
RR RR MMMM MMMM 33 PP PP UU UU TT UU UU PP PP DD DD : 
RR RR MMMM MMMM PP PP UU UU TT UU UU PP PP 0D DD ; 
RR RR MM MM MM PP PP UU UU TT UU UU PP PP DD DD : 
RR RR MM MM MM 3 PP PP UU UU TT UU UU PP PP DD DD ; 
RRRRRRRR MM MM 33 PPPPPPPP UU UU TT UU UU PPPPPPPP DD DD : 
RRRRRRRR MM MM 3 PPPPPPPP UU UU TT UU UU PPPPPPPP DD DD : 
RR RR MM MM ; PP UU UU TT UU UU PP DD DD ; 
RR RR MM MM PP UU UU TT UU UU PP DD DD : 
RR RR MM MM 33 5 PP UU UU TT UU UU PP DD DD cece : 
RR RR MM MM 33 3 PP UU UU TT UU UU PP DD DD eee : 
RR RR MM MM HEH PP UYUUUUUUUUU TT UUUUUUUUUU Ss PP DDDDDDDD coe : 
RR RR MM MM 333333 PP UUUUUUUUUU TT UUUUUUUUUU PP DDDDDDDD cece ; 

2 
LL II11I1 SSSSSSSS : 
LL 11111 SSSSSSSS ; 
LL I] SS : 
LL I] S$ : 
LL I] S$ : 
LL I] SS : 
LL I] SSSSSS : 
LL I] SSSSSS : 
LL I] SS ; 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LLLLLLLLLL III] SSSSSSSS : 
LLLLLLLLLL HII! SSSSSSSS : 
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; 1 1 MODULE RM3PUTUPD (LANGUAGE £84. 15$52) . 

: ¢ § {DENT = 'v04-000' 

; : 04 BEGIN 

: $ B08 i isuntneneneenannareenenenereneeenerenrerretertrertnennaenentenenententenetens 
; 'e 

3 8 08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
: 009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
$ 19 Baie ’ i. ALL RIGHTS RESERVED. * 
Py ; Y 
3 \§ pote 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
HY 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 4 dE : :* TRANSFERRED. * 
3 ‘® ® 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $y 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
s $3 8053 } 7 CORPORATION. * 
4 '® om 
: $¢ $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; Se b058 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ! * 
; @& 0026 1 !* * 
: 44 Bose ; LRA EAE E EERE RETA EEA ATA EEE 
; 9 0099 1 !e+ 

3 0 0030 1! 

; 1 oth : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

38 0088 1 | ABSTRACT: 

: $e Bee ; Contains routines common to both put and update operations 

: 36 0036 1 | 

3 7 0037 1 ! ENVIRONMENT: 

3 & ie . | 

; 9 00 1! VAX/VMS OPERATING SYSTEM 

:; 40 0040 1! 

; «641 0041 1 !<- 

s €2 0042 1 

3s 65 0045 1! 

3 rr} Bee ' : AUTHOR: Christian Saether CREATION DATE: 4-0CT-78 13:45 
: 40 46 1 | Modified by: 

s 67 $029 1! f 

; 648 0048 1! v03-020 MCNO017 Maria del C. Nasr 04-Apr-1983 

; $3 sr : Change Linkage of RMS$NULLKEY to RL$JSB. 

: 34 $084 1 i v03-019 TMKO012 Todd M. Katz 26-Mar-1983 

; 6 03g 1! Change the Linkage for RMSRU_JOURNAL3 from RLS$RABREG_467 to 

: 56 ber ' RLSRABREG_67. 

ne 055 1! v03-018 MCNO016 Maria del C. Nasr 24-Mar-1983 

3 28 Bne$ ! More Linkages reorganization. 
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a8 R28 V03-017 TMKOO11 Todd M. Katz 16-Mar- 
Change the Linkage for RMSRU_JOURNAL3 from RLSRABREG_67 to 

¢ 694 RLSRABREG_467. 
6 bO¢ v03-016 TMKO010 Todd M. Katz 16-Mar-1983 
o7 6b Change the symbol RMSRS$_PUT to RJRS$_PUT. 
65 065 v03-015 MCNOO15 Maria del C. Nasr 28-Feb-1983 
68 066 Reorganize Linkages 
6 06 
68 068 v03-014 TMKO009 Todd M. Katz 14-Jan-1983 

9 53 Add support for Recovery Unit Journalling and RU ROLLBACK 

0 070 Recovery of ISAM files. One modification will have to be made 

71 0071 to the routine RMSPUT_UPD_SPL. If the current a causing 
7 b07¢ the pr iner? data bucket split is a $PUT, then RU Journal the 

7 007 operation before releasing the original bucket provided the file 
es babe is RU Journallable and the process is within a Recovery Unit. 

76 007 V03-013 TMKOCO8 Todd M. Katz 29-Sep-1982 

77 007 The SUPDATE RMS service has been completely re-written such 

78 0078 that it is no longer necessary to keep a copy of the old 

79 0079 version of the current primary data record (the record being 

80 0080 updated) in a scratch buffer or at the back end of the primary 


data bucket when there are old secondary keys to be deleted. 

The old record now has its own record buffer to reside in. 

Therefore, it is no anger ~eyrg | to move the old record 
e 


0084 out of the back end of the old (or leftmost) primary data bucket 
0085 into the back end of the scratch buffer used to build the RRV 
4443 table before the old primary data bucket is released. 
0088 V03-012 TMKO007 Todd M. Katz 09-Sep-1982 
0089 The field IRBSB_SRCHFLAGS has been changed to a word. Fix all 
Bet references to if. 
009 The only time it in necessary to verify a packed decimal key 
009 is when the key type is packed decimal. It is never necessary 
0094 to perform this verification when the key consists of more 
0095 than one segment and the file is a prologue 3 file. Also, the 
0096 packed decimal verification routine no longer requires 
44 parameters. 
00 v03-011 KBT0230 Keith B. Thompson 23-Aug-1982 
0100 Reorganize psects 

v03-010 TMK0006 Todd 19-Jul-1982 


M. Katz 8 
The name of RMSCLEAN_SIDR has been changed to RMSPUTUPD_ERROR. 
There is also no Longer ony need to place the address of the 
user record buffer (RABSL_RBF) in the g.opet register REC_ADDR 
before calling the routine RMS$PUTUPD_ERROR since that is done 
by the routine itself. 


v03-009 TMKO00S Todd M. Katz 02-Jul-1982 oa 
Implement the RMS cluster solution for next record positioning. 
Since the NRP List has been eliminated and the next record 
peott tentang context kept locally in the IRAB, there is no 
need to update the NRP List when inserting (or re-inserting) 
a record, and the RFA of the new/changed primary data record 
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maybe retrieved from the IRAB. 


v03-008 KBT0071 Keith B. Thompson 28-Jun-1982 
Modify the update buffer processing 

V03-007 MCNO014 Maria del C. Nasr 11-Jun-1982 
Eliminate overhead at end of data bucket that was to be 


used for duplicate continuation bucket processing. 


v03-006 KBT0058 Keith B. Thompson 9=Jun-1982 
Change rm$ins_all_sidr to use ramget pees ney and remove 
all ref. to the significance coun 


VO3-005 TMKO004 Todd M. Katz 07-Jun-1982 
Whenever we have decided to treat multi-bucket splits ene 
continuation buckets as two-bucket splits, the rightmost bucke 
is a continuation bucket, and an index update is required, set 
IRBSL_VEN_RIGHT to zero. This is because whatever index update 
is done it will not involve the rightmost new bucket. 


V03-004 TMKO003 Todd M. Katz 26-May-1982 
Fix an assembly error that broke the build. 
v03-003 TMK0002 Todd M. 19-May-1982 


Katz 

There are several multi-bucket split cases involving 

continuation but not empty buckets where the decision is made 

to perform the index update as if a two-bucket data level 

split had taken place. Towards this end, the IRB$V_BIG_SPLIT 

flag is cleared. However, whenever an index update takes 

place, there exists the possibility of an index bucket split, 

and the two-pass index bucket split code for those cases not 
| 
} 


involving empty buckets assumes that if some value is in 
IRBSL_VBN_MID then a multi-bucket split must have taken place 
on the level below. This is regardless of whether the 
IRB$V_BIG_SPLIT flag is or isn*t set. To resolve this conflict 
we must also clear IRBS$L_VBN_MID in addition to IRB$V_BIG_SPLIT 
whenever we have decided to Randle the index update as if'a 
two-bucket split has taken place, and whenever empty buckets 
are not involved. This fix will be included as a patch on the 
V3.1 update floppy. 


v03-002 RASO085 Ron Schaefer 8-Apr-1982 
Correct DJD001 so that packed decimal keys get correctly 
probed and checked. 


v03-001 TMKO001 Todd M. Katz 24-March-1982 
Change all references to the keybuffers, so that they use 
the macro KEYBUF_ADDR. 


v02-028 DJD0001 Darrell byt ty _ 1-March-1982 
Fix probing of packed decimal key strings and 
RMSPUT_UPD_CHKS. 


v02=027 kBT0006 K B Thompson 15-Feb-1982 | 
ace Gore to handle reclaimed bucket next-record-IDs and add 
subtitles 
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If insert fails because secondary a" is an invalid 
eeeees qos snot string, back out what has already been 
nserted. 


V02-019 REFORMAT C Saether 01-Aug-1980 22:05 


i REVISION HISTORY: 


Wend Koeni 24-OCT-78 14:02 
X0002 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Christian Saether, 24-OCT-78 17:41 
- nent original record (update only) out of CURBDB before calling 


17 if v02-026 CDS0001 C Sae 30-Aug-1981 
17 7 pdate irb$l_curbdb steer release with keep lock, as 
re fe t now represents the lock bib. 
2 2 v02=025 MCNO013 aria del ¢. Nasr 19-Aug-1981 | 
7 7 Ze tore the key %y keybuf fer to keybufferS when “doing a big 
80 80 vO2=024 MCNO012 Maria del C. 03-Aug-1981 
3 1 Change calling sequence to RMSPCKDEC. CHECK ~y support 
¢ §¢ key type conversion. 
Sz bs v02-023 MCNO011 Maria del C. Nasr 27-May-1981 
85 5 eodity RMSPUT_UPD ~$Pt to support "bucket set tet ing in 
$6 $PUT for temas iles. 
88 v02-022 MCNO010 a del C. Nasr 15-May-1981 
89 Change RMS$PUT upp. CHeKS o include new overhead when 
s determining if prologue 3 records fit in bucket. 
3§ v02-021 MCNO006 Maria del C. Nasr 13-Mar-1981 
a7 Increase size of record identifier to a word in NRP. 
3 v02-020 PSK0002 P S Knibbe 27-Aug-1980 17:00 
97 
98 
99 
00 
3 
08 
04 
05 
09 
08 
09 


SRLEARPANLSSSLESRALLSSELS 


x00 
UPDATE_R 

Christian Saether, 3-NOV-78 8:19 

x0004 = fix incorrect use of BDBSW_SIZE to BDBSW_NUMB 

Wendy Koonta 6-NOV-78 13:32 

0005 = CH 6 OK_RRV (CONDITIONAL SUCCESS) TO RVU ( ERROR) 


Christian Saether, 6-NOV-78 15:51 
X0006 - fix bug masing BIG_SPLIT and EMPTY_BKT in SPL_BITS 


Christian Saether, 9-NOV-78 10:40 
X0007 = back to MAKE INDEX on INS_ALL_SIDR | 


Wendy Koenig, 15-DEC-78 12:59 
x000B = FIX UP EMPTY BKT CASES FOR FOOL UPD 


Christian Saether, 14-JAN-79 17:03 
x0009 - do not set lockabove when root is at level 1 - causes deadlock 
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wend Koons 15-JAN-79 12:09 
x0010 = DEL fe LINE OF CODE THAT SETS VALID AND DIRTY BITS FOR NO REASON 


Christian Saether, 15-JAN-79 17:54 
X0011 = take LOCKABOVE decision out of INS_ALL_SIDR 


Wendy Koenig, 25-JAN-79 12:20 
x0012 = FOOL UPDATE WHEN EMPTY BKT AND NOT BIG SPLIT 


Wendy Koenig 26-JAN-79 9:14 
X0013 = GET RID OF SETTING VALID 


' 
! 
! 
' 
' 
! 
! 
' 
! 
! 
! 
' 
' 
! Wend koonts 9-FEB-79 14:30 

i 0014 = CLEAR UNLOCK_RP BIT WHEN UNLOCKING RECORD 
i V UPDA 

' RETURN ERROR TF RRV BIT IS SET FROM UPDATE_RRV_ 
| 50 ATER 
! 

' 

' 

! 

! 

' 

! 

! 

! 

! 

' 

' 

' 


WE DON'T HAVE TO CHECK BIT L 


Christian Saether, 11-FEB-79 19:43 

X0015 = take record unlocking logic out of put_upd_fin (moved to rm3face) 
Christian Saether, 1-july-79 11:20 

X0016 = clear irb$v_dup in rm$put_upd_chks 

Paulina Knibbe, 19=Dec-79 11:30 

X0017 = check that packed decimal keys are legal 

Christian Saether, i-Jan-80 22:35 

0018 = do bucket sort to recover id's if splitting due to lack of id's 


LIBRARY ‘RMSLIB:RMS'; 
REQUIRE "RMSSRC:RMSIDXDEF'; 
: define default psects for code 
PSECT 
CODE = RMSRMS3(PSECT_ATT 
PLIT = RMSRMS3(PSECT_ATT 
Linkages 


LINKAG 


iF 
R); 


! External Routines 
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; ) } 

3 4 ? 1 EXTERNAL ROUTINE 

; 8 ; 1 RMSALLOC_BKT RLSRABREG_7, 

3; 289 1 RMSBKT_SORT RLSRABREG_7 

; 290 ox R SPL RLSRABREG 67, 

; 291 a RMSFOOCED_YUH : RLSRABREG- 

; 3 $ 1 RMSGET : RLSRABREG 4 7 

; 29 1 RMSGET_NEXT_KEY : RLSLINK 7-10.11, 
: 294 § 1 RMSINSERT_REC : RLSRABREG"4 7, 
; 295 1 RMSINSS_OR_IDX : RL SRABREG_36 ° 

; 38 0 1 RMSKEY Cc : RLSRABREG_7, 

3 1 1 RMSMAKE _ INDEX : RLSRABREG-7 

: 298 ¢ 1 RASROV : RLSPRESERVE1, 

: 299 63 1 RMSNOREAD_LONG : RL$USB, 

; 300 64 1 RMSNULLKEY : RL$JSB 

; 301 65 1 RMSPCKDEC_CHECK : RLSRABREG_7, 

; O¢ 66 1 RMSPUTUPD_ ERROR : RLSERROR CINK2, 
; 30 0367 1 RMSRECORD_KEY RLSPRESERVE!, 

; 304 0368 1 RMSRLSBKT : RLSPRESERVE1, 

; 305 0369 1 RMSRU JOURNALS : RLSRABREG 67 

; 306 9370 1 RMSSPLIT : RLSRABREG~4567 NOVALUE, 
; 307 371 1 RRSSPLIT= UDR 3 : RLSRABREG_4567 NOVALUE, 
: 308 0 ae 1 RMSUPDATE_RRY : RLSRABREG_67 

: 09 0373 RMSUPDATE ~RRV_2 : RLSRABREG 4567; 
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H 1 75 1 &SBTTL ‘RMSPUT_UPD SPL‘ 3 
: \7 f : GLOBAL ROUTINE RMSPOT_UPD_SPL(RECSZ) : RLSRABREG_4567 = : 
g 632 4 1 !e4 3 
ae) § ‘y 13 : 
; i $4 : : FUNCTIONAL DESCRIPTION: ; 
: i B : } Handles the UDR split code for $PUT and SUPDATE | : 
; 1 bs ! CALLING SEQUENCE: : 
; § 8 6 1} BSBW RMSPUT_UPD() : 
; 4 a ‘ 
; 5 ttt) : INPUT PARAMETERS: : 
: ; Baa9 : } RECSZ = record size of record to be inserted ; 
: 9 Ba36 1 ! IMPLICIT INPUTS: ; 
3 0 0393 1! $ 
; oo 0394 1! REC_ADDR -- position for insert : 
; $38 0395 1! IDX_DFN == index descriptor for primary key ; 
> ae 0396 1! RAB, IRAB, IFAB, IMPURE : 
; 334 0397 1! in RAB =-'RSZ, RBF ; 
; 335 0398 1! keybuffers ~ ; 
; 336 0399 1! in IRAB == UNLOCK_RP UPDATE bits, CURBDB describing bucket to insert in : 
s io 0400 1! -- if non-zero, LOCK BDB describes level above in case of idx upd 3 
; 338 0401 1! -- RSZ and RBF : 
; 339 oS 1! in IFAB == NORECLK RUP bits 3 
; 340 0405 1! BKTSB_NXTRECID = 0 in original bucket to signal that split was : 
; 341 0404 1! due to lack of id's : 
; 308 0405 1! : 
; 34 0406 1 ! OUTPUT PARAMETERS: : 
; 344 0407 1! NONE ; 
; $02 0408 1! : 
; rh 0409 1 ! IMPLICIT OUTPUTS: : 
; 0410 1! NONE : 
: 348 0411 1! : 
: 349 bets 1 ! ROUTINE VALUE: : 
; 3 0415 1! 3 
3 633) 0414 1! RBF, RSZ, DUP, ony hard i/o errors 3 
3 $26 0415 1! RVU == some RRV(s) were not updated correctly | : 
. 2 O66 1! OK_DUP (dups seen) | 3 
3; 354 0417 1! : 
§ 55 be15 1 ! SIDE EFFECTS: : 
: 356 419 1! : 
; Sor 0420 1! if success of any type, the record has been put 3 
; 358 0421 1! if success then index has been updated : : 
; 359 04 § , in any case, if UNLOCK_RP is set, the record is unlocked otherwise locked : 
: 360 0423 1! note that it is locked throughout index and sidr updates | 3 
; 1 0424 1! put has to unlock the record if there was an error, update is cool 3 
; § 0425 1! no buckets are locked on exit in any case — ; 
3 0426 1! IRAB C UPDATE J] flag is set if_ index updating is required F 
; ros f If the current operation is a $PUT taking place on a RU Journallable : 
; 4365 4 3 iz le within a Recovery Unit, then RU Journal the operation before : 
: 4 ,: releasing the original bucket. : 
; 430 1! : 
; 368 0431 1 !-- 3 
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eneyyre a 
v04- RMSPUT_UPD_SPL p- 8 RMS ..SRCJRMSPUTUPD .B32; (2 


| 

o | 
; & § 1 | : 
H : t BEGIN 3 
= | ; 
; 435 EXTERNAL REGISTER ; 
; 4 $ ON_IO_STR : 
; 4 COMMON-RAB_ STR, | ; 
3 438 _10X_BFN_S 3 
; 0439 R-REC-ADDR_STR; ; 
; 0440 5 
; 0441 LABEL ; 
3 gees FOOL_UPD; : 
; bees } initialize all the fields we're going to use ; 
; 0446 IRABCIRBSW_SPLIT) = 0; ; 
: 044 IRABLIRBSW_SPLIT_1] = 0; : 
; 0448 IRABLIRBSW_SPLIT 2] = 0; : 
; 0449 IRABLIRBSL_RFA_VBNJ = 0: ; 
; 0450 IRABCIRBSL_-VBN-LEFT) = 0; ; 
; 0451 IRABCIRB$SL_VBN-RIGHT) = 0; | ? 
; 0458 IRABCIRBSL-VBN_MIDJ = 0; | : 
: ott: calculate the kind of split that's neccessary | ; 
; 0456 iF .IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 | F 
; 0457 TH | ; 
3 0458 RMSSPLIT_UDR() 3 
; 0459 SE | $ 
; 0460 RMSSPLIT_UDR_3(.RECSZ); : 
3 0461 IRABCIRB$L_VBN_LEFT] = .BDBCBOBS$L_VBN); 
; B66 § IRABCIRB$V_BKT_NOJ = .IRABCIRBS$V_NEW_BKTSI; | 
; 0464 2 ! Store the primary key in keybufferS when doing a Big yt so that 
3 Ree? 2 RMSBKT_SPL can save the significant count in keybuffer3 safely? 
: 0467 $ if .IRABCIRB$V_NEW_BKTS] GTRU 1 
0468 2 THEN | 
; 4 44 2 RMSMOVE ( .1DX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(3), KEYBUF_ADDR(5)); | 
; 0471 ! for each new bucket that's needed, allocate it fill in the data and write 
; 047 ! it out 
: 410 47 | 
3; 411 474 WHILE .IRABCIRB$V_BKT_NOJ NEQ 0 
: tig 0475 DO 
: 41 0476 BEGIN 
> 414 477 my 
: 415 0478 ! allocate and format new bucket setting up nxtbdb to describe it 
; 2% rt 4 } link to previous new bucket 
; 418 a3 RETURN_ON_ERROR (RMSALLOC_BKT()); 
; 420 a8 ! set up bdb and bkt_addr 
; 6 ; 485 BDB = .IRAB C_IRBSL_NXTBDB J; 
; ? ? rs BKT_ADDR = .BDB C BDBSL_ADOR J; 
: 625 488 ! Store vbn and next record ID in appropriate place for safe-keeping 
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3; & $ 489 ! the vbn's are stored for future use, as such: 

3; 4 490 : the original bucket is always in vbn_left 

3; «4 8 491 : the rightmost bucket is ng | in vbn_right 

3; 4 49 ; if there are 2 new buckets, the middle one is in vbn_mid 

; 450 49 : if there are 5 new buckets, the left-middle one is in vbn_mid 

>; 43) 0494 : and the right-middle one is in rfa_vbn 

: & ¢ Boe ! the way split_udr is set up now, if it is a 3 or 4 bucket split 

3; «4 49 ' the new record is always in vbn_mid... but that of course is subject 

; : ¢ rts to change 

; 436 0499 ! For each bucket save the VBN and the next record ID. NOTE: The next 

: : 8200 record ID for prologue 1,2 files id always 1 

; 439 p26 IF .IRAB C IRB$L_VBN_RIGHT J) EQL 0 
; 440 be THEN 
: 441 504 4 BEGIN 
; 228 0505 4 
; «44 0506 4 ' Save the VBN 

> 444 0507 4 : 

; «445 0508 4 IRAB C IRBSL_VBN_RIGHT ] = .BD0B C BDB$L_VBN J; 

; 446 0509 4 

3 447 0510 4 ' Save the next record ID 

; 4468 0511 4 ! | 
: 449 pete 4 IF .1FAB C IFBSB_PLG_VER J] LSSU PLGS$C_VER_3 { 
; 450 0513 4 T 
3: 451 0514 4 IRAB C IRB$W_NID_RIGHT J) = 1 
; $26 0515 4 ELSE 
3 $37 Bei$ : IRAB C IRB$W_NID_RIGHT ] = .BBLOCK C .BDB C BDBSL_ADDR J],BKTS$W_NXTRECID J 
3; 455 0518 4 END | 
: 456 0519 3 ELSE 

: 457 0520 4 BEGIN 

; 458 0521 4 

; 459 0522 4 ! If the MID is taken this must be the RFA bucket 

; 460 0523 4 : 
3 461 0524 4 IF .IRAB C IRBSL_VBN_MID ] NEQ 0 
3 re 4 0525 4 THEN 
: 46 0526 5 BEGIN 

: 464 0527 5 
; 465 0528 5 ! The old MID bucket becomes the RFA bucket 

: 466 82¢2 5 : 
3; 467 0530 5 IRAB C IRBSL_RFA_VBN J] = .IRAB C IRBSL_VBN_MID J; 
; 468 0531 3 IRAB C IRBSWRFANID } = .IRAB C IRBS$WINID-MID J 

; $6 8236 

: 470 05 4 END; 

: 471 0534 4 
3 47 0535 4 ' Save the MID VBN 
; 47 0536 4 ! 
3 474 0537 4 IRAB C IRBSL_VBN_MID ] = .BDB C BDBSL_VBN J; 
: 475 0538 4 
: 476 0539 4 ' Save the next record ID 

3; 477 0540 4 : 

; 478 0541 4 If .1FAB C IFBSB_PLG_VER ] LSSU PLGSC_VER_3 

; 479 b2e8 4 T 

: 480 543 4 IRAB C IRB$W_NID_MID } = 1 | 
; 481 0544 4 ELSE 

; 482 0545 4 IRAB C IRBSW_NID_MID ] = .BBLOCK C .BDB C BDBSL_ADDR J, BKTSW_NXTRECID J 
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RMS. SRCIRMSPUTUPD .B32; 
END; 


' Check to be sure the -" hasn't been toying w/ the record buffer 
in less than prologue 35 files 


' 

/ 

if. 1FABLIFOS8_PLG_VERI LSSU PLGSC_VER_3 
RETURN_ON_ERROR (RMSFOOLED_YUH()); 

} write out the data into the new bucket 

RMSBKT_SPL(.RECSZ); ! no errors possible 

IRABCIRBS$L_NXTBDB) = 0; 

RETURN_ON_ERROR (RMSRLSBKT(RLSSM_WRT_THRU)); 


END; ! { end of while there are still more buckets to take care of } 


! update rrv's, building table for future updates. _ 
: set up the free buffer to be a table in which to build rrv's. 
let nxtbdb point to it and curbdb still points to the original bucket. 


IRABCIRBS$B_CACHEFLGS] = CSHS$M_NOREAD; 
RMSGETBKT(O, Bi BDGSy NUMBJ); 
IRABCIRB$L_NXTBDB) = .BDB; 


RMSUPDATE_RRV(); 


Set up bdb and bkt_addr to correspond to orig inet bucket. Do bucket sort 
to recover id's if nxtrecid = 0 before poten —* inserting new record 
into original bucket. Note that we my | be doing bucket sort in a put 
situations where nxtrecid happened to be zero on normal lack of space 
split, but it seems harmless enough and probably saves the need to do one 
later and zeroing nxtrecid to signal split due to lack of id's in the. 
first place saves code in rm$split_udr. (Only for prologue 1 and 2 files). 


BDB = .IRABCIRBS$L_CURBDB); 
BKT_ADDR = .BDBCBDBSL_ADDR); 


IF ye - IRABCIRBSV_UPDATE] 


N 
.BKT_ADDR(BKTS$B_NXTRECID] EQL 0) 
AND TIFABLIFB$SB~PLG_VER] LSSU PLGSC_VER_3 


N 
RMSBKT_SORT(.BKT_ADDR); 
if the new record belongs in the original bucket, put it there 


IF .IRABCIRB$W_POS_INS] LSSU .IRABCIRBSW_SPLIT) 
(- IRABCIRBSW_POS_INS] EQLU . IRABLIRBSW, SPLIT] 
. IRABLIRB$V_REC_W_LOJ) 
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; 540 0603 THEN ; 
; 541 eRe BEGIN 3 
3 tg 605 ; 
; re bee check again to make sure the user hasn't changed the record buffer : 
: 545 608 | ; 
: 546 609 IF .IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 : 
; re 0610 THEN : 
; re pels RETURN_ON_ERROR (RMSFOOLED_YUH()); : 
; $56 0618 REC_ADDR = .IRABCIRB$W_POS_INS] + .BKT_ADDR; : 
; $5 0615 RMSINSERT_REC(.RECSZ); ! always returns succesful : 
3 $27 bers END; ! € end of record needs to go into original bucket } : 
3 999 0618 ! If this operation is a $PUT Sok ing place on a RU Journallable file within 3 
; 556 0619 ! a Recovery Unit, then RU Journal the operation before releasing the : 
; e2f Be , original primary Geta bucket. : 
; 559 06 ; IF .IFABCIFBSV_RUP) : 
; 560 06 : 
; 3el 0624 NOT .IRABCIRBSV_UPDATE) ; 
: 206 0625 THEN : 
: 56 0626 | : 
; 564 0627 REC_ADDR = .IRABCIRBSL_RBFI; ; 
; 565 P 0628 RETORN_ON_ERROR (RM$RU_JOURNAL3 (RJR$_PUT, 3 
: 566 P 0629 = RABE Rest PUTUC ven. 3 
; 567 P 0630 ; - IRABCIRBS$W_PUTUP_IDJ, : 
; 568 0631 . IRABCIRB$W_RSZJ)J; ; 
; 569 BSe¢ 2 END; $ 
: 570 063 ; | : 
s of) 0634 ! Release the original bucket, keeping a lock on it : 
; of¢ 0635 : : 
s oF 0636 BDBCBDB$V_DRT) = 1; | ; 
; 574 0637 2 ; 
; 575 0638 2 RETURN. ON_ERROR (RMSRLSBKT(RLSSM_WRT_THRU OR RLSS$M_KEEP_LOCK)); : 
: e76 +484 2 IRABCIRBS$C_CURBDB) = .BDB; ; 
Py | : 
; ae 0641 RMSUPDATE_RRV_2(); | 3 
s SfyY pote 3 
; 580 064 ! if RRV bit is set, there's been an error -- not much sense in going : 
; 28} bere on, so to be consistent with other errors, let's clean up now : 
3 | Py 
; 388 Boe6 3 
; 584 64 IF .]RABCIRBSV_RRV_ERRJ 3 
; 585 0648 THEN 3 
3 268 pee? RETURN RMSERR(RVU) ; | 3 
; 588 0651 ! if update needed then perform setup and flog update necessary. if update 3 
; 589 $26 ! isn't needed, clear update flag since we still have curbdb locked 3 
; ag0 $37 and we have to know if we should release it : 
; 332 9635 FOOL_UPD : 3 
; 59 026 GIN : 
; ape beet IRABCIRB$V_UPDATE]) = 1; : 
5 396 0659 ! If it's a big split but both new buckets are continuation bkts, no index 3 
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F 
16-$ 
14-Sep-1984 
! update is needed. However if the left-hand bucket is empty, RMS will have 
: to swing the pointer to IRBSL_VBN MID. As this effectively makes the 
; felit a (one or two pass) two=bucket empty bucket split case, zero 
IRB$L_VBN_RIGHT. 
if .IRABCIRB$V_B1G_SPLIT) 

. IRABCIRB$V_CONT_BKTJ 

- IRABCIRB$V_CONT_RJ 

BEGIN 

IF _ .IRABCIRBSV_EMPTY_BKT) 

THEN 
BEGIN 
IRABCIRB$V_BIG_SPLIT]J 
_ IRB$L_VBN_RIGHT] 


ELSE 
IRABCIRBS$V_UPDATE] = 0; 


LEAVE FOOL_UPD 
END; 
! if it's not a big split and if the new bkt is a cont. bkt we don't have 
! to upd. if it's not a big split and the at tginet bkt is now empty, 
we have to update but we have to move vbn_mid into right and zero right. 
iF NOT . IRABCIRB$V_BIG_SPLITJ 
BEGIN 
IF .JRABCIRB$V_CONT_BKT) 
IRABCIRB$V_UPDATE) = 0; 
IF .IRABCIRB$SV_EMPTY_BKT] 
THEN 
BEGIN 
byt pee neg egy b = .ITRABCIRBSL_VBN_RIGHT); 
as IRB$L_VBN_RIGHT] = 0; 


LEAVE FOOL_UPD 

END; 
! at this point, if it’s not a big split and the above conditions weren't 
! met we need to update, but there is nothing else we want to change, so 
get out 
if NOT .IRABCIRB$V_B1G_SPLIT) 


LEAVE FOOL_UPD; 


“ou 
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> 654 717 ! Now, we know it's a big split case... see if we can reduce it to a 2-bkt 
; 655 8 i split if the original bkt is empty. and the rightmost is a cont bkt. 
; 6 $ 71 ! To do so, turn off the big split indication, and set IRBSL_VBN_RIGHT 
3 638 4 y to 0 (and just swing the ptr if possible). 
: 659 7 if .IRABCIRBSV_EMPTY_BKT) | 
; 660 7 : 
; 661 724 - IRABCIRBSV_CONT_RJ 
3 666 725 THEN 
; 66 7 $ 4 BEGIN 
> 664 7 4 [RAB t+ pd AE og BE = 0; 
; 665 728 4 IRABLIRBSL_VBN_RIGHT) = 0; 
; 666 729 & LEAVE FOOL_UPD; 
; 667 0730 END; 
; 668 0731 
; 434 3 $ if the original bucket is empty, we've changed all we can 
; 671 0734 IF .IRABLIRBSV_EMPTY_BKT) 
; ers O73? LEAVE FOOL_UPD; 
; of? Of 35 if the middle bucket is a continuation bucket, just make it a 2=bkt split 
; 677 0740 IF .IRABCIRB$V_CONT_BKTI 
; 678 0741 
; 679 Bree IRABCIRBSV_BIG_SPLIT] = 0; 
; 680 074 ; ; 
; 681 0744 : if the right bucket is a continuation bucket, make it a 2-bkt split 
3 pe 544 } and treat the middle bucket as the right bucket 
3 684 0747 IF .IRABCIRB$V_CONT_RJ 
; 685 0748 THEN 
3; 686 0749 4 BEGIN 
3; 687 0750 4 IRABCIRB$L_VBN_RIGHT] = .IRABCIRBSL_VBN_MIDJ; 
; 688 0751 4 IRABCIRB$V_BIG_SPLITJ = 0; 
; 689 O78 END; 
; 690 075 - 
; 691 0754 ! If we have decided to treate the index update as if a two-bucket data 
: 69 0755 ! Level split had taken place, then we must also clear VBN_MID. 
; 69 0756 ! two-pass nonenety bucket index bucket split code assumes, regardless of 
; 694 0757 ! the status of IRB$V_BIG_SPLIT, that if this field has a value then the 
; 695 0758 ! two-pass index bucket split should be handled as if a multi-buckct 
; 696 1594 split had taken place. | 
; 698 O76) IF NOT .IRABCIRB$V_BIG_SPLIT) 
3 +45 166 THEN 
; 700 076 IRABCIRBS$L_VBN_MID] = 0; 
; 701 0764 
: 4 re? END; ! { end of fool_upd } 
: 704 re IRABCIRB$B_SPL_BITS] = .IRABCIRBSB_SPL_BITS] AND 
3 705 768 IRB$M_BIG_SPLIT OR IRBSM_EMPTY_BKT); | 
3 P06 8788 RETURN RMSSUC(SUC); 
; 70 770 
; 708 0771 #1 END; 
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KEY 
TRN RMSMOVE, RMSNORE 
TRN RMSPUTUPD_ 


.PSECT RMSRMS3,NOWRT, GBL, PIC,2 
52 DD 00000 RMSPUT_UPD_SPL:: 
PUSHL 


5 R2 : : 
4A AD D4 90002 CLRL 74(IRAB) : : 
gE AD B4 0000 CLRW 78(IRAB) : ; 
70 Ad D4 00008 CLRL  112(IRAB) : : 

0088 c9 7¢ 00008 CLRO 136(IRAB) : ; 
0090 ¢€9 D4 0000F CLRL 144 (IRAB) : F 
0087 ~CA 91 00013 CMPB =s«1 8 3(IFAB), #3 : ; 
05 1& 00018 BGEQU§ 1$ : : 
00006 30 OOO1A BSBW = RMSSPLIT_UDR : : 
09 11 00010 BRB 2$ ; ; 
08 AE pp OOO1F 1$ PUSHL  RECSZ ; F 
00006 30 9002@ BSBW RMSSPLIT_UDR_3 : ; 
04 CO 0002 ADDL2 , SP : ; 
1¢ Ad DO 00028 28 OVL  $28(BDB), 136(IRAB) : : 
01 EF O00¢E EXTZ2V #1, #2, 68(IRAB), RO : ; 
50 FO 000 INSV RO, 49. #2, 68(IRAB) : : 
01 ED OO03A CMP7V #1, #2, 68(IRAB), #1 F ; 
17 18 00040 BLEQU 3$ ; ; 
0084 CA 3¢ 90042 MOVZWL 180(IFAB), RO : : 
60 B940 DF 0004 PUSHAL a96(1RAB) ERO] : ; 
60 8940 3F O08 PUSHAW @96(IRAB)CROJ : : 
20 A? 9A O004F MOVZBL 32(IDX_DFN), -(SP) : : 
00006 30 00053 BSBW  RMSMOVE ; : 
OC CO 00056 ADDL2 #12, SP : : 
44 Ad 9 90099 3$: BITB  68({RAB), #3 ; : 
3 4 5D BNEQ 4$ ; : 
0089 31 O005¢ BRW 12$ ; : 
00006 30 0062 4$: BSBW RMSALLOC_BKT : ; 
50 €9 9006 BLBC STATUS, T1$ ; : 
3c «= ADs: : 00068 MOVL 60(IRAB), BDB ; F 
18 AG 4 O89 MOVL 24(BDB), RO 3 3 
50 DO 000 MOVL RO BKT ADDR F : 
00B7 CA i 007 MOVAB 183(IFAB), R2 F : 
008 ¢9 05 0007 TSTL  140(IRAB) : ; 
iE if 007¢ BNEQ $$ ; : 
10 Aa OOD OO7E MOVL 8(BDB), 140(1RAB) ; : 
51 p4 0084 CLRL RV ; 
62 91 00086 CMPB ss (R2), #3 F 
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v04 RMSPUT_UPD_SPL 127808- 1 3b eer LRMS.SRE RM3PUTUPD .B32; 1 age 02) | 
os ca pal 
00A0 «C9 1 e 0 p mov fi. 160(IRAB) + 0514) 
OOAO «(C9 06 Ad 80 2094 5$ nOvu §(R0), 160(IRAB) : 0516, 
51 0090 i 09 909¢ 6$ MOVE 144 (1RAB) R1 > 0524. 
70 a9 1 00 OOAS MOVL 1, 112(IRAB) + 0530 
00A4 9 00a2 69 80 OOA MOVW 162(IRAB), 164(IRAB) + 0531 
0090 ¢9 1€ A& DO OOOAE 7$ MOVL  28(BDB), 144(IRAB) : 0537 
51 pb, 90084 CLRL R1 + 0541) 
03 é 1 00086 CMPB = s«(R2), #3 : 
{€ 00089 BGEQU 8S : | 
1 06 00088 INCL RI : 
00A2 C9 01 80 9008p Ovi a. 162( RAB) + 0543 
00A2 9 06 AO BO 900¢4 8$: MOVW  6(RO), 162(IRAB) + 0545 
06 51 £9 OOCA 9$: BLBC =. «aR, _ 10 : 0552 
00006 30 000CD BSBW § RM$FOOLED_YUH > 0554 
68 50 €9 00000 BLBC STATUS, 15$ : 
08 AE bp 00003 10$:  PUSHL RECS + 0558 
00006 30 00006 BSBW RMSBKT_SPL : 
3c = AD-—s«S 00009 CLRL 60(IRAB) + 0560 
6E 02 00 000D¢ MOVL #2, (SP) + 0562 
00006 30 O00DF BSBW RMS$RLSBKT : 
5 04 CO O00E2 ADDL2 ‘ ; 
5 0 E9 QOOOES 11$:  BLBC STATUS, 15$ : 
FF6E 31 OO0E8 RW 3 : 
40 Ag 04 90 OOOEB 12$: MOVB #4, 64(IRAB) 3; 0571 
7E 14 Ad 3C OOOEF MOVZWL 20(BDB), -(SP) : 0572 
7E Bs Boers CLRL =-(SP) : 
00006 30 000F5 SBW = RMSGETBKT : 
SE 08 CO 000F8 ADDL2 . SP : 
3c. AD 54 b0 000FB MOVL DB, 60(IRAB) : 0573 
0000G 30 OOOFF BSBW RMSUPDATE_RRV : 0575 
20 Ad 00 00102 MOVL § 32(IRAB), ~BDB : 0585 
55 18 A& DO 00106 MOVL 24(BDB) BKT_ADDR ; 0586 
14 06 Ad 03 £0 010A BBS #3, 6CIRAB), : 0588 
06 Ad 95 0010F TSTB © 6(BKT_ADD : 0590 
OF 12 00112 BNEQ 13$ ; 
03 00B7 CA 91 00114 CMPB 183(1FAB) , #3 : 0591 
08 1E 00119 BGEQU 135 : 
5 Bb B48 PUSHL BKT_ADDR : 0593, 
00006 11D SBW RMSEKT_SORT ; 
5E 04 CO 001 9 ADDL2 #4, SP ; 
4A AD 48 AY B1 00123 138: CMPW © 72¢ITRAB), 74(IRAB) : 0598 
7 1F 00128 BLSSU  _14$ : 
g 12 01 A BNEQ 17$ > 0600 
1D 44 A9 3 012C BBC #3, 68(IRAB), 17$ ; 0602 
03 00B7 CA 91 4) 1 14$ CMPB s«d BSC IFAB), #3 > 0609 
1€ 001 BGEQU 163 : 
00006 30 001 BSBW RMSFOOLED YUH > 0611 
56 G2 00158 158: BLBC STATUS. 198 | 
56 48 Ag ¢ 13— 16$ MOVZ2WL 72(IRAB), REC_ADDR ; 0613. 
56 55 CO 0014 ADDL2 BKT_ADDR. REC7ADDR F 
08 AE DD 0014 PUSHL RECSZ : 0615 | 
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Routine Base: RMSRMS3 + 0000 


521 bytes, 


; Routine Size: 


an 


iSoseoctgee 01:59:36 panel] ab is4=52 44.0574 rage 


6 
ra i RMSINS_ALL_SIDR 1$-Se0-1964 Te ie cette Rae ee Page 43 


3; ri 773 1 SSBTTL ‘RMSINS Att SIDR‘ : 
; ng ae : GLOBAL ROUTINE RMSIAS_ALL_SIDR : RLSRABREG_4567 = : 
3; 716 ore 1 fee $ 
3 735 “77 (13 $ 
3 £18 ah ! FUNCTIONAL DESCRIPTION: : 
; 718 780 1! Loop through all alternate key values and insert key values from 3 
; ahs f 1 : the user data record. If update mode then only those required. : 
3 4 1 f : : CALLING SEQUENCE: : 
i: g 785 1! RMSINS_ALL_SIDR() | 3 
: 724 07 $ 1! $ 
s 6fe@ 07 1 ! INPUT PARAMETERS: : 
; 726 0788 1! none 3 
3s fer 0789 1! 3 
; 728 0790 1 ! IMPLICIT INPUTS: : 
; 729 0791 1! none $ 
; 730 0738 1! 3 
ee) | 07953 1 ! OUTPUT PARAMETERS: : 
3 ee 0794 1! none 3 
. 2s 0795 1! : 
; 734 0796 1! IMPLICIT OUTPUTS: 3 
s 735 0797 1! none 3 
; 736 0798 1! ; 
3; for 0799 1 ! ROUTINE VALUE: : 
s 38 0800 1! none : 
3; 739 0801 1! : 
: 740 Bang 1 ! SIDE EFFECTS: : 
3; 741 0803 1! none : 
3; 76 0804 1! 3 
; 74 0805 1 !-- 3 
: 744 p808 1 3 
3: «745 0807 2 BEGIN : 
; 746 0808 3 
3; 747 0809 EXTERNAL REGISTER 3 
: 748 0810 COMMON_RAB_STR, : 
3; 749 0811 COMMON_JO_STR : 
: 750 OB1¢ R_REC_ADDR STR, ; 
: 751 081 R~IDX~DFN_ STR; | : 
; P36 0814 ; 
3 0815 LABEL ‘ 
3; 754 Beig LOOP; : 
3 2 1 : 
3 £36 0818 BUILTIN 3 
; 7@ 0819 AP; | : 
; bass : 
; 759 0821 ‘ Loop doing all of the keys NOTE: This assumes that we are already : 
3 760 pase looking at the key 0 descriptor | : 
; 6¢ OB 4 WHILE RMSGET_NEXT_KEY() 3 
; £6 : 5 DO : 
; 765 8 LOOP : BEGIN : 
: 766 08 3 “ 
3 fer 08 REC_ADDR = .RAB C RABSL_RBF J; : 
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Check for record size large enough to contain this key value 


IF RAB C RABSW_RSZ J] LSSU .IDX_DFN C IDXS$W_MINRECSZ J 


If this key should have been updated but now record is not long 

enough, the used has modified his vecery buffer while operating 
asynchronously before the update operation is finished. 

eer eats just leave loop so that this key value is not 
nserted. 


.IRAB C IRBSV_UPDATE } 


-BBLOCK C .IRAB C IRBSL_UPDBUF J] + .IDX_DFN C IDX$8_DESC_NO J, 
UPDS$V_INS_NEQ } 


' 
iF 


THEN 
RETURN RMSERR( RSZ ) 
ELSE 
LEAVE LOOP 
ELSE 


! If the record fits and this is update but not marked for 
insertion, then leave loop so that key is not inserted. 
if + 1RAB C IRBSV_UPDATE J 


N 
NOT .BBLOCK C .IRAB C IRBSL_UPDBUF J] + .IDX_DFN C IDX$B_DESC_NO J, 
UPD$V_INS_NEW J 


THEN 
LEAVE LOOP; 
cy user buffer can still be read, REC_ADDR contains address 
!o 


ir SRONGREAD A. ONGK -RABCRABS$W_RSZ],.REC_ADDR,.IRAB C IRBSB_MODE J ) 
RETURN RMSERR( RBF ); 

If not update, check for null key 

IF NOT .IRAB C IRBSV_UPDATE ] 

THEN 


BEGIN 
AP = 0; ! compare to data record, REC_ADDR points to RBF 


IF NOT RMSNULLKEY( .REC_ADDR ) 
LEAVE LOOP; 
END; 
Get key into key buffer 2 
3 ! es yp, RECORD_KEY = no overhead/expanded 


AP = 3; : 8 
rmsre CORD KEY( KEYBUF ADDR 
IRAB C IRB$B_STOPLEVEC ) = 0; 


m6 
6-Sep=1984 01:59:24 — YAX=11_Bliss-32 V4.0-76 
=8ep-198¢ 13:01:88 LANs. SRCIRASPUTUPD- B36; 


N 6 
ral RMSINS_ALL_SIDR 1ergeen 1382 94:89:88 HANS aBSRSSeofues S356 


; 5 7 IRAB ( IRBSB_SPL_BITS J = 0; 

; $ § IRAB [ IRBSWISRCAFLAGS J] = [RBSM_POSINSERT; 

; 33 IRAB CL IRBSB_KEYSZ J] = .IDX_DFN C IDXS$B_KEYSZ ); 

3 2 4 Define local block for status 

: 1 38 4 BEGIN 

3 ¢ 94 4 

: B36 4 LOCAL FATS 

; 5 3 4 ; 

3 § 4 2 If key is packed decimal - check that it's a legal packed string 
; 8 8 900 4 IF .IDX_DFNCIDXSB_DATATYPE] EQL IDX$C_PACKED 

3 9 901 4 THEN 

3 grt 090 BEGIN 

3 1 090 LOCAL 

; Bie 904 RBF _ADDR; 

; 84 905 

; aie 844 RBF_ADDR = .RABCRABSL_RBF I; 

; 846 0908 ; IF RMSNOREAD_LONG (.RABCRABSW_RSZ], .RBF_ADDR, .iRABCIRBS$B_MODE)) 
: 847 0909 THEN 

; 848 0910 g STATUS = RMSERR( RBF ) 

; 849 0911 ELS 

; 850 aai§ 2 STATUS = RMSPCKDEC_CHECK(); 

; 851 091 

3 S28 4a 5 IF NOT .STATUS 

; 85 0915 5 THEN 

3 See 0916 6 BEGIN 

8 55 0917 6 RMSPUTUPD_ERROR(); 

; 856 0918 6 RETURN .STATUS 

; 857 0919 6 END 

; 858 83 0 4 END; 

; 859 921 4 

3 ace 3358 ? : Insert SIDR record and do all inde» updates 

; 36 0926 4 STATUS = RMSINSS_OR_IDX(); 

; 864 0926 5 IF .STATUS<O, 16> EQL RMSERR( IDX ) 

; 865 B35 4 THEN 

3; 866 0928 4 : 
3; 867 0929 4 ! Got an index error pttenpting to insert record, so make the index 
3 B68 930 4 ! if error on that, clean up the alternate keys inserted so far 
3 931 4&4 ' otherwise, try to insert again 

3 370 O33 4 ! 

; 871 09 5 BEGIN 

: are 0934 5 STATUS = RMSMAKE_INDEX(); 

; 87 0935 5 

: 874 B398 : IF NOT .STATUS 

; 75 4 THEN 

; 6 938 6 BEGIN 

3 7 939 6 RMSPUTUPD_ERROR(); 

:; 878 pore 6 RETURN .STATUS; 

: 879 941 6 

; 880 ok g END 

; 881 094 ELSE 


RMSPUTUPD 
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944 5 STATUS = RMSINSS_OR_IDX(); 
945 
346 4 END; | 
947 4 
948 4 IF NOT .STATUS 
Se town 
0951 4 ! An error at level 0 is fatal, i.e., the record was not inserted | 
! at all otherwise just signal in index update failure 
099 4 LL otherwi i in i i 
0954 4 IF .IRAB C IRB$B_STOPLEVEL J EQL 0 | 
0955 4 THEN 
0996 BEGIN 
95 RMSPUTUPD_ERROR(); 
0958 RETURN .STATUS; 
0959 5 
0960 5 END 
0961 4 ELSE 
096¢ 5 BEGIN 
0963 5 RAB C_RABSL_STV J = .STATUS; 
0964 5 IRAB C IRBSV_IDX_ERR J = 1; 
see a 
0967 4 END ! of block defining STATUS 
0968 2 END; i of block LOOP. © 
0969 
0970 2 RETURN RMSSUC( SUC ); 
0971 2 
0972 1 END; 
52 DD 00000 RMSINS_ALL_SIDR:: 
USHL R2 : 0774 
00006 30 00002 1$: BSBW = RMSGET_NEXT_KEY ; 0824 
03 50 8 00005 BLBS RO, 2s ; 
00DB 31 90008 BRW 16$ ; 
56 28 AS DO 00008 2$: MOVL § 40(RAB), REC_ADDR : 0829 
22. «A? 22 «(AS «CBI Ht CMPW ia 34(TDX_DFN) ; 0833 
1B 1€ 00014 BGEQU = 3$ ; 
06 ag 01 03 EF 00016 EXTZV #3, #1, 6C(IRAB), R2 ; 0842 | 
3 5 E9 Ooic BLBC Re 1$ ; 
0 10 A? 9A OO01F WOVZBL 16CIDX_DFN), RO > 0845. 
50 64 AJ CO 0008 ADDL2 100(iRAB), RO ; 
D8 60 § 00 BLBc =—-_ (RO) ,,_18 ; 
50  86A4 BF 3C OO02A MOVZWL #34468, RO > 0847 | 
c 11 0002F BRB 3 ; 
06 Ag 01 EF 00031 3$: EXTZV #3, #1, 6C(IRAB), R2 ; 0855. 
¢ £9 037 BLBC Re 4$ : 
5 10 A? 9A OO03A MOVZBL 16(IDX_DFN), RO > 0858 | 
50 64 Ag C0 0 ADDL 100 CIRAB), RO : | 
D 6 : 4 BLBC (RO), 1$ ; 
E OA Ad OA 6 45 4$: MOVZBL 10(IRAB), -(SP) > 0865 | 
5 pp 49 PUSHL REC_ADDR ; 
7E 22 AB 3C 00048 MOVZWL 34(RAB), -(SP) : 


7 
RMSPUTUPD 1b-Se -1984 2:59:26 ~.i Bliss-32 V4.0-74 Page 
voe-000 RMSINS_ALL_SIDR 127808-13be 94:37 85 bres aca. SPUTUPD, B32; . (3 | 
00006 30 0004F BSBW RMSNCREAD_LONG : : 
5E ¢ C0 0098 ADDL2 #12, SP ~ : : 
g : 0 BLBC. oR 6s : ; 
0 8654 BF 3¢ 0098 MOVZWL #34388, RO + 0867 F 
A 11 D 5$: BRB 13$ : ; 
0D 2 £8 OOOSF 6$: BLBS = R2, 7$ + 0871 : 
20 a ane en 
00006 Hi 0066 BSBW RMSNULLKEY : : 
5 04 ay) 9906 ADDL2 #4, SP : | ; 
3 88 £6 bonce 78 Ay A AP HS : 0886 | 
26 00B4 CA Re G00%e MOVZ2WL 1B0(IF : 0885. ; 
60 8940 Hi 0007 PUSHAB SOC TRA AB} ERO) : : 
00006 30 00078 SBW = RMSRECOR : ; 
SE 04 £0 0007E ADDL2 #4, SP : ; 
41 Ad 94 00081 CLRB 65(1RAB) + 0886 ; 
44 AD 9G 00084 CLRB  68(IRAB) : 0887 | : 
42. Ad 01 BO 00087 MOVW #1, 66(IRAB) : 0888 ; 
00A6 C9 20 AZ 90 00088 MOVB  32CIDX_DFN), 166(IRAB) + 0889 ; 
05 1D A? 91 00091 CMPB =—s-« 29 IDX DFN). #5 : 0900. : 
24 12 00095 BNEQ 10$ : ; 
50 28 A8 DO 00097 MOVL  40(RAB), RBF_ADDR + 0906 : 
7E 0A A9 9A 00098 MOVZBL 10(IRABS, -(SP) + 0908 : 
50 D 0009} PUSHL RBF_ADDR 3 é 
7E 22 A8 3C OOOAI MOVZWL 34(RAB), -(SP) : | ; 
00006 30 000A5 BSBW  RMSNOREAD_LONG ; : 
OC CO 000A8 ADDL2 #12, as : : 
07 50 fF? OOOAB BLBC Re 3 : 
50 8654 BF 3¢ OOOAE MOVZWL # 4388, STATUS > 0910) : 
03 11 0008 BRB 9$ : : 
00006 30 00085 8$: BSBW  §®M$PCKDEC_CHECK : 0912 : 
1B 50 £9 000B8 9$: BLBC ATUS, 12$ > 0914 ; 
00006 30 000BB 10$:  $BSBW iSINSS_OR_IDX > 0924 ; 
855C BF 50 81 00085 CMPW ss STATUS, #3140 > 0926 ; 
09 iF 000¢ BNEQ : : 
00006 30 000C5 BSBW RNSMAKE_ INDEX > 0934 
08 50 &9 000C8 BLBC = STATUS : 0936 
00006 30 000C¢B BSBW = RMSINSS_OR_IDX + 0944 
12 50 £8 OOOCE 11$:  BLBS  STATUS,~15$ : 0948 
41 ad 95 90001 TSTB = 65 CIRAB) > 0954 
03, 12 00008 BNEQ : 
00006 30 00006 128 BSBW  §RMSPUTUPD_ERROR : 0957 | 
OF 11 90009 13$: BRB : 0958 | 
oC AB b0 ODB 14$: MOVL STATUS, 12(RAB) + 0963 | 
06 Ad 02 8 OOODF BISB2 #2, 6({RAB) > 0964 
FFIC 31 OO0Es 15$ W 1$ > 0824 
50 01 DO OO0ES 168 MOVL #1, RO : 0970 
04 BA BREe 17$ POPR #*°M<R2> 3; 0972 
5 000€B8 RSB ; 


; Routine Size: 236 bytes, Routine Base: RMS$RMS3 + 0209 


s 911 0973 (1 
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04-000 RMSPUT_UPD_CHKS 12286871382 3:09:88 RMS. SRCIRM3PUTUPD.B32; 1 (4) | vO. 
; 913 0974 1 XSBTTL ‘RMSPUT_UPD_CHKS' 
3 aie 46 } GLOBAL ROUTINE RMSPOT_UPD_CHKS : RLSRABREG_7 = 
3 318 3f§ 1 44 | 
; (91 ars 1! 
; 218 097 1 ! FUNCTIONAL DESCRIPTION: 
; 91 0980 1! 
3 > , 349 : Perform common put/update checks on record size and buffer 
3; § ¢ 038s 1 | CALLING SEQUENCE: 
; 9 984 1! 
s 924 $38? 1 i RMSPUT_UPD_CHKS() 
; 925 986 1} | 
; 926 0987 1! INPUT seen: 
: 44 0988 1! 
: 928 0989 1! 
: 929 0990 1: IMPLICIT INPUTS: | 
; 930 0991 1! | 
; 931 099 1 i 
$ 236 099 1! OUTPUT a | 
; 93 0994 1: no 
> 934 0995 1: 
s 935 0996 1 ' IMPLICIT OUTPUTS: 
> 936 0997 1} none | 
; 937 0998 1! 
; 938 0999 1 i ROUTINE —e 
; 939 1000 1! non 
; 940 1001 1} 
> 941 1008 1 i SIDE EFFECTS: 
; ae6 1003 1: none 
: 94 1004 1: | 
3 944 1005 1 i- 
3 945 1006 1 | 
; 946 1007 2 BEGIN 
3; 947 1008 § | 
; 948 1009 EXTERNAL wee 
: «949 1010 2 COMMON_RAB_STR, 
; 950 1011 R_IDX _DFN_ STR: 
; 951 1916 
$ 326 101 IRABCIRBSL_NXTBDB) = 0; | 
: 95 1014 IRAB ispaertta = 6; 
3; 954 1015 IRABCIRBSV-RRV-ERR] = 0; 
s 955 1016 IRABLIRB$V_DUPJ = 
; 956 1017 IRAB CIRBSC _RBFJ = RABSL_RBF 
; ver 1318 IRAB CIRB$W-RSZ) = RABSW_RSZ 
; £4 1939 make sure rsz isn't greater than the maximum record size allowed 
3; 961 1092 If .IFABCIFBSB_RFMORG) EQL FABSC_FIX 
3 306 102 THEN 
; 96 ose BEGIN 
: 964 1025 
; 965 1966 IF .JRABCIRB$W_RSZ) NEQU .IFABCIFBSW_LRLI 
; 206 10 THEN 
; 96 1028 4 RETURN RMSERR(RSZ) 
; 968 1029 3 
; 969 1030 ELSE 
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~ 
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IF .IFABCIFBSW_MRS] NEQ 0 
- IRABCIRBSW_RSZJ] GTRU .IFABCIFBSW_MRSJ 
RETURN RMSERR(RSZ); 
set up for the primary key 
RETURN_ON_ERROR( RMSKEY_DESC(0) ); 
} make sure the record will fit in a bucket | 
BEGIN 


LOCAL 
BKT_SIZE : WORD; 


If; JFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 


woovovononoowvowvono 
ee ie eee 
ooo 
WAW NWI 
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BEGIN 
BKT_SIZE = (.JDxX DFNCIDX$B -DATBKTSZ3*512) = BKTSC_OVERHDSZ - 1 - 
IRCSC _F IROVHDSZ; 


IF IFABCIFBSB_RFMORG] NEQ FABSC_FIX 
BKT_SIZE = .BKT_SIZE - IRC$C_DATSZFLD; 


ELSE 
999 


SOCCOCOCOCOCOCOCOCOCOOCOOOO OOOO OOCOOOO: 


BEGIN 
BKT_SIZE = (.1DX_DFNCIOX$B DATBKTSZ3*512) = BKTSC_OVERHDSZ - 
BKTSC_DATBRTOVH = IRCS$C_FIXOVHSZ3; 


} 
| 
| 
| 
oi PEASE PoSEPer Saath cal 
anes X_BFNCIDX$B EOATBKTYPS Neau IDX$C_NCMPNCMP) 
BKT_SIZE = .BKT_SIZE - IRCSC_DATSZFLD; 
IF 1DX_DFNCIDXSV_KEY, COMPR] | 
BKT_SIZE = .BKT_SIZE - IRCS$C_KEYCMPOVH; | 
IF, 1DX_DFNCIDXSV_REC_COMPRI 
BKT_SIZE = .BKT_SIZE - IRCSC_DATCMPOVH; 
END: | 
ifs . IRABCIRB$W_RSZ) GTRU .BKT_SIZE | 
RETURN RMSERR(RSZ); 


See SS eSeSs 


DONO USWN—-OO0OnN 


END; 
} make sure the record is large enough to contain the whole primary key 
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ee at tb et ss —s — 3 > — 8 = 4) bb 4 a 2 2 + 2 a 


COOOCOCCOSOOOCOOoCooOoO 
QUikwn—o 
NOUS WN OO OO~N 
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< 
2: 


: 1027 1088 IF_.IRABCIRBS$W_RSZ) LSSU .1DX_DFNCIDX$W_MINRECSZ] 

; 1028 1 THEN | 
; 1029 1090 RETURN RMSERR(RSZ); 

; 1030 1091 
; 19 1 199 : probe record buffer 
3 4 § 189¢ IF RMSNOREAD_LONG(.IRABCIRBSW_RSZ], .IRABCIRBSL_RBFJ, .IRABCIRB$B_MODEJ) 

; 1035 1938 RETURN RMSERR(RBF); 

3; 1036 109 

3; 1037 1098 RETURN RMSSUC (SUC) 

; 10 : 1099 3 

; 10 1100 1 END; 


3C_ =A9 D4 00000 RMSPUT_UPD_CHKS: 
CLRL 


60(IRAB) > 1013 
0S Ad 0610 8F AA 00003 BICW2 #1552, 5(IRAB) + 1015 
58 A 28 AB DO 00009 MOVL  40(RAB), 88(IRAB) + 1017 
56 AY 22 A&B B60 si MOVW 34(RAB), 86(IRAB) : 1018 
01 50 AA 91 0001 CMPB =s-« BOC IFABS, #1 : 1022 
09 12 00017 BNEQ 1$ : 
52 AA 56 Ad B1 00019 CMPW = BSC IRAB), 82(IF AB) : 1026) 
OE 13 OO01E BEQL 2$ : 
6D 1% 00020 BRB 8$ : 1028 | 
60 AA BS 00022 1$ TSTW 96(IFAB) : 1032) 
07 13 00025 BEQL 2$ ; | 
60 AA 56 AD Bi 00027 CMPW 86(IRAB), 96(IFAB) : 1034 | 
61 1A 0002C BGTRU 8$ 3 
7E D4 OO02E 2$ CLRL = (SP) + 1040 | 
00006 30 00030 BSBW  RMSKEY_DESC : 
SE 04 CO 00033 ADDL2 #4, SP ; 
79 50 £9 00036 BLBC STATUS, 11$ : 
03 0087 CA 91 0003° CMPB  =s-«Y83( FAB), #3 > 1049 
17 1€ 0005€ BGEQU : 
50 17, A? 9A 00040 MOVZBL 23(IDX_DFN), RO + 1052 
50 50 09 78 00044 ASHL : 
51 50 16 A3 00048 SUBW3 #20 RO. xT _SIZE ; 
01 50 AA 91 0004C CMPB) ss SOC TFABS, #17 > 1055 
51 ao 43 bb028 Crete ee. Oxt _SIZE : 1057 
oe Nf its BRB ie > 1049 | 
50 17 AZ 9A 00057 38: MOVZBL 23 capx DEN), RO : 1061 | 
50 50 09 78 0058 ASHL : 
51 50 19 A3 00055 SUBW3 ftir “RO, "ext SIZE > 1062, 
01 50 AA OM 0063 CMPB > 1064 | 
06 12 0006 BNEQ : 
06 29 «A? sO 00069 CMPB 23 IDX _DFN), #6 > 1066 | 
03 13 0006D BEQL 5$ ; 
51 2 A2 O06F 4$: SUBW2 #2, B 2E : 1068 
03 10 «(AZ 06 £1 000 é 5$: BBC "6. OB (TOX DEN), 6$ : 1070 | 
51 0 Ae 007 SUBW2 #2. BKT SIZE : 1072 | 
1¢ A? 95 OO07A 68: TSTB : (1DX_BFN > 1074 | 
03 18 0007D BGEQ é : 


? 
viral RMSPUT_UPD_CHKS 18-se0-1984 93:39:48 HAMS SredaaSposube o3o¢ Page 7 | 


1 03 A2 O007F SuBW2 #3, BKT SIZE : 1076 
3 56 ng ef 7$: CHP GUIRABY, BKT_SIZE ; 1089. 
22 A? 56 AD BI CMPW = BGCIRAB), 34(1DX_DFN) : 1088. 
06 E D BGEQU $ : 

50 B6AG BF : 0 f 8$: MOV ZL #34468, RO ; 1090. 
7E A Ad 9A 0095 9$ MOV ZBL 1OC1RAB) -(SP) + 1094 
8 A9 DD 00099 PUSHL 8 (TRAB) : 

7E 56 Ad 3 009¢ MOVZWL 86(IRAB), =(SP) : 
00006 0 Ag SBW  RMSNOREAD_LONG ; 

sf of c8 ih ADDL2 #12, SP 3 
6 Ab BLBC RO 10$ : | 
50 8654 BF ¢ BO0A9 MOVZUL #34388, RO : a 
50 01 DO OOOAF 10$:  MOVL #1, RO : 1098 | 
05 000B2 11$: SB : 1100 


; Routine Size: 179 bytes, Routine Base: RMSRMS3 + O2F5 
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RMS. 


t 


T 


RMS 


RMSPUT_UPD_F IN 
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we - te uw se ee 
- eo ~~ uw =~ ~ 
ao) es @jQo om 
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aw « w ” - [+ 4 ” “9 eo wun =- © 1 D4 ~ 
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- w g w - > uw a w hd w § . aiB = ” 
Dw Qa -_ a = - ew | 4) az @ @#A Bw Zwez wo 
az - oo =z = of - o c 29 < <= = 
A— _ - we eo e-@ awe oe ae we | ° c 2 — 2 => « 
=e =xz= & c @e c¢ <«c c >c we < 7 aoc «& - - 
Ds oe | z oy o <0 -f-o0O acocro o wo = ee: ae) a 4 
- Oo a we ac ec c -—C we wt Zev] ew we es C&C = EF = 
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mS 4 =z £ a = o ond 
@ > vw ot oe — a ” $ 
YW + 5 
SAD wewewewreemiecwew re rermeresereseewteswemewesresecwserss 
Se ce ee eee le ee el ed ed eed ed n***a LD LD LD LD LD LD De ee ee el ll ae 
MAT NOR DRO UM TIMN OR. DHOOM TN OR. DAO CUM TN OR. DHO— MUM TNO. DOOM CUIM TNO 
an ew re lela la) = Pt al ol ol el ed ee a La La La ad ea ALL AL ALALALAN a mh em maa AAA ALA) 
LLL EO 
ELL LL LLL OO 


MMAMAMNMAMAMAWN oe ee. eS ooo 
SSSSSSSSSSSSSSSSSS SSSSSSSSSSSoooo oo Sooo Sooo SooS5 
EO OO 


lt eh te ee ed tee hh a ee od oe eo oe ee 2 oe ee 2) 2 2 2 oe td dO ee 
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; Routine Size: 


Name 
RMSRMS3 


File 


RMSPUT_UPD_F IN 


pa19B6 95:01:88 


AX-11 Bliss-32 V4. Hie, 
RMS .SRCIRMSPUTUPD.B32;1 


10 AB 78 AY DO 00000 eS a oe CRAB) secnsa) 
14 =A 0080 9 B0 6003 MOVW 18CR 20(RAB) 
06 06 A 1 €1 BBC gcina », 18 
50 8019 BF : tt MOVZWL ne 
06 05 ag gf 1 00016 1$: BBC Neg hi 
50 8011 BF 5c 001 MOVZWL mg 785, RO 
4 RSB 
50 01 OD 2$ MOVL , RO 
05 00024 RSB 
37 bytes, Routine Base: RMSRMS3 + 03A8 

1157 1 
1158 1 END 
1159 1 
1160 0 ELUDOM 

PSECT SUMMARY 

Bytes Attributes 
973 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ounenees Syabo|s eoreeose Pages Processing 
Total Loaded Percent Mapped Time 
3109 123 3 154 00:00.4 


~$255$DUA28 : CRMS.OBJIRMS.L32;1 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMSPUTUPD/OBJ=OBJ$:RMSPUTUPD MSRC$:RM3PUTUPD/UPDATE=(ENH$:RM3PUTUPD) 


; Blessed Fence 


973 of 82.5 + 0 data bytes 
80; 48. : 


COMMAND QUALIFIERS 


of NO WOnr— 


tes apis Z| 


: | 
tot 18-Sep-1984 01:59:24  VAX=11 Bliss-32 V4.0-74 9) 
voueboo RMSPUT_UPD_F IN b-sep-1984 01:59:24 v Bliss-32 V4.0-742 Page 29, 


3; Lines/CPU Min: 393? 
3; Lexemes/CPU-Min: 1 6 

: poner? Used: 255 pages 
; Compilation Complete 


AL EQUIPMENT CORPORATION 
DENTIAL .AND PROPRIETARY 


W327 Gecervseo OB 


GIT 
NF I 


